home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Windows 6-Pak - Disc 4
/
Windows 6-Pak (InfoMagic) (Disc 4) (1999).ISO
/
3D-Graphics-Editors
/
lsystem3.exe
/
L System 3
/
_setup.1
/
HANGPL1.LS
< prev
next >
Wrap
Text File
|
1995-01-19
|
941b
|
28 lines
#╔═════════════════╤═══════════════════════════════╗
#║ Hangpl1.ls │ (c) C.J. van der Mark ║
#╟─────────────────┴───────────────────────────────╢
#║ Questions about Lparser files to: ║
#║ Internet cvdmark@xs4all.nl ║
#║ Fido 2:283/203.11 ║
#║ PCG 9:526/464.3 ║
#╚═════════════════════════════════════════════════╝
10
20
20
G
G=^(180){[A]+(90)g-(90)>(90)[A]+(90)g-(90)>(90)[A]+(90)g-(90)>(90)[A]}
A=[C][a]
C={[s+(90)Fs+(90)Fs+(90)Fs<(+35)-(120)Fs-(120)Fs][f^(15)+(15)FFss+(150)FFss]}
a={[d]}{[e]}
d=[f+(90)f+(90)f+(90)f<(+35)-(120)f-(120)f][f^(15)+(15)ff+(150)ff]
q=[p][>(90)-(90)g(50).+(90)c(2)?(1)[x]]>(90)-(90)g(100).+(90)[p]
p=sp
s={ij[+Zh]<(90)ij[-Zh]}
i=Z+(5)i
j=Z-(5)j
k=ccZ{[+++l.][++ll.][+lll.][llll.][-lll.][--ll.][---l.]}
h=ZZZt(3.2)$[++[++ZZk]ZZk][--[--ZZk]ZZk]ZZk
x=Z(60)!(0.90)x
l=t!g
@